﻿Imports System.Data
Imports System.Drawing
Imports Logica

Partial Class login
    Inherits System.Web.UI.Page

    ''' <summary>
    ''' Ingresa al sistema.
    ''' </summary>
    ''' <remarks>Creado por: David Murillo, Creado: 27/07/2010, Modificado: 28/07/2010</remarks>
    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIngresar.Click

        Dim usuario As Hashtable = Nothing

        Try

            If txtNombreUsuario.Text = "" Then
                txtNombreUsuario.Focus()
                Throw New Exception("Ingrese el nombre de usuario.")
            ElseIf txtContrasenna.Text = "" Then
                txtContrasenna.Focus()
                Throw New Exception("Ingrese la contraseña.")
            End If

            usuario = Gestor.usuarioIdentificar(txtNombreUsuario.Text, txtContrasenna.Text)

            If Not Gestor.usuarioTienePermiso(usuario("identificacion"), 15) Then
                Gestor.usuarioCerrarSesion()
                Throw New Exception("No tiene permisos necesarios.")
            End If

            txtNombreUsuario.Text = ""
            txtContrasenna.Text = ""
            lblError.Text = ""

            Me.Session.Add("identificacion", usuario("identificacion"))
            Me.Session.Add("nombre", usuario("nombre"))
            Me.Response.Redirect("Bienvenida.aspx")


        Catch ex As SqlClient.SqlException

            lblError.ForeColor = Color.Red
            lblError.Text = "Error de conexión."

        Catch ex As Exception

            lblError.ForeColor = Color.Red
            lblError.Text = ex.Message

        End Try

    End Sub

    ''' <summary>
    ''' Se ejecuta al cargar la pagina.
    ''' </summary>
    ''' <remarks>Creado por: David Murillo, Creado: 27/07/2010, Modificado: 28/07/2010</remarks>
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        lblError.Text = ""

    End Sub

    Protected Sub lnkBtnRecuperarContrasenna_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkBtnRecuperarContrasenna.Click
        Response.Redirect("RecuperarContraseña.aspx")
    End Sub
End Class
